From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 8 Mar 2007 08:19:28 +0000 (+0000)
Subject: (gdb): Pop up current GUD buffer if user
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1695
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=06b22f4001663beb7fdf4cba146e20ef21b6fcd7;p=emacs.git

(gdb): Pop up current GUD buffer if user
tries to start a second session in graphical mode.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 1662af1c924..8db7c28219e 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -690,7 +690,10 @@ session."
 	   (buffer-name gud-comint-buffer)
 	   (get-buffer-process gud-comint-buffer)
 	   (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)))
-      (error "Multiple debugging requires restarting in text command mode"))
+      (let ((same-window-regexps))
+	(display-buffer gud-comint-buffer)
+	(error
+	 "Multiple debugging requires restarting in text command mode")))
 
   (gud-common-init command-line nil 'gud-gdb-marker-filter)
   (set (make-local-variable 'gud-minor-mode) 'gdb)